0 SCREEN1,2:WIDTH32:DEFINTA-Z:Z$="00000022558800008181C3C3E7E7FFFF1C7EFFFFFF7E7C382070F8FC7C3810000C0E070303070E0C":H=1
1 KEYOFF:R=14336:V=33:FORI=VTO221:FORJ=0TO7:VPOKEI*8+J,VAL("&H"+MID$(Z$,H,2)):H=H+2:NEXT:IFI=33THENI=219:NEXTELSENEXT
2 FORI=RTOR+7:VPOKEI,VAL("&H"+MID$(Z$,H,2)):H=H+2:NEXT:R=R+32:FORI=RTOR+7:VPOKEI,VAL("&H"+MID$(Z$,H,2)):H=H+2:NEXT
3 A$=STRING$(32,33):VPOKE8196,247:VPOKE8219,103:R=6144:FORI=RTOR+31:VPOKEI,220:NEXT:FORJ=ITOI+95:VPOKEJ,219:NEXT:X=120
4 Y=184:L=20:LOCATE0,L:?A$:X=120:Y=184:V=6895:Q=0:K=(RND(-TIME)*31)+6240:VPOKEK,32:VPOKEK+1,32:SOUND 7,55:SOUND 8,16
5 SOUND11,248:SOUND12,55:SOUND13,14:FORQ=0TO10:S=(RND(-TIME)*544)+6304:N(Q)=S:VPOKEN(Q),221:NEXT:LOCATE14,0:?"SUEZ"
6 LOCATE0,L:?SPC(32):L=L-1:LOCATE0,L:?A$:FORI=0TO10:VPOKEN(I),221:NEXT:Y=Y-8:V=V-32:IFL=5THENLOCATE0,L:?SPC(32):L=20
7 PUTSPRITE0,(X,Y),14,0:PUTSPRITE1,(X,Y),9,1:IFV=KORV=K+1THENP=P+100:LOCATE12,12:?"LEVEL UP":FORI=1TO3000:NEXT:CLS:GOTO3
8 IFVPEEK(V)=221ORVPEEK(V)=219THENBEEP:LOCATE12,12:?"DESTROYED":PLAY"v15t88o3dt116do2do3do2db-":FORI=1TO6000:NEXT:RUN
9 LOCATE0,0:?"SCORE";P:J=STICK(0):X=X-8*(J=3)+8*(J=7):V=V+1*(J=7)-1*(J=3):GOTO6